home *** CD-ROM | disk | FTP | other *** search
/ Mesolore / Mesolore - Disc 1.iso / pc / data / Bookmarks.dir / 00021_Script_21 < prev    next >
Text File  |  2001-03-02  |  853b  |  25 lines
  1. on mousedown
  2.   set the itemdelimiter = ","
  3.   tell the stage to put the mouseH into MH
  4.   tell the stage to put the mouseV into MV
  5.   
  6.   put the rect of window "bookmark" into temp
  7.   delete char 1 to 5 of temp
  8.   delete the last char of temp
  9.   
  10.   repeat while the mousedown
  11.     tell the stage to put the mouseH - MH into H
  12.     tell the stage to put the mouseV - MV into V
  13.     put value(item 1 of temp) + H into item 1 of where
  14.     put value(item 2 of temp) + V into item 2 of where
  15.     put value(item 3 of temp) + H into item 3 of where
  16.     put value(item 4 of temp) + V into item 4 of where
  17.     put where
  18.     put value("rect(" & where & ")") into whereA
  19.     tell the stage to set the rect of window "bookmark" = whereA
  20.     tell the stage to set the stagecolor = the stagecolor
  21.     tell the stage to updatestage
  22.   end repeat
  23.   
  24. end 
  25.